unit tit_win;

interface

uses WinTypes, WinProcs,
{
     SCTPWF,                         (* Sentinel-C linkable driver      *)
}
     WinCrt,
     CartoCmds;

function read_ln(var f_in:text; var _S:String): integer;
function _nextpar(var param:string; var ligne:string):integer;
Function _putpar(bat_str:string):integer;
Function _getpar:integer;
Function _paramstr(i_rang:integer):string;
Function _paramcount:integer;   (* Bidon : fait par _getpar *)
(*
function Lecture_rbo(adresse:byte):integer;
*)
function stripblanks(name:string):string;
function latin_parse(var latS:string; var y:double; mode:integer):integer;
function longin_parse(var longS:string; var x:double; mode:integer):integer;
{****************************************************************************}

function _getmem(S:String; var P:Pointer; Size:word):integer;
procedure _freemem(S:String; var P:Pointer; Size:word);
procedure _MemAvail(S:String);

procedure store_prot(  lig_prot, col_prot, canmax_prot,
                       rang_help, code_write : ptab_prot;
                       caneff_prot, code_prot, ima_prot : ptab_prot);

implementation

function read_ln;            EXTERNAL 'TERA_LIB' INDEX 03;
function _nextpar;           EXTERNAL 'TERA_LIB' INDEX 04;
Function _putpar;            EXTERNAL 'TERA_LIB' INDEX 05;
Function _getpar;            EXTERNAL 'TERA_LIB' INDEX 06;
Function _paramstr;          EXTERNAL 'TERA_LIB' INDEX 07;
Function _paramcount;        EXTERNAL 'TERA_LIB' INDEX 08;
(*
function Lecture_rbo;
*)
function stripblanks;        EXTERNAL 'TERA_LIB' INDEX 09;
function latin_parse;        EXTERNAL 'TERA_LIB' INDEX 10;
function longin_parse;       EXTERNAL 'TERA_LIB' INDEX 11;
function _getmem;            EXTERNAL 'TERA_LIB' INDEX 12;
procedure _freemem;          EXTERNAL 'TERA_LIB' INDEX 13;
procedure _MemAvail;         EXTERNAL 'TERA_LIB' INDEX 14;
procedure store_prot;        EXTERNAL 'TERA_LIB' INDEX 15;

end.
